indicators/Ehlers COG.mq4

   1 //+------------------------------------------------------------------+\r
   2 //|                                                   Ehlers COG.mq4 |\r
   3 //+------------------------------------------------------------------+ \r
   4 #property indicator_separate_window\r
   5 #property indicator_buffers 2\r
   6 #property indicator_color1  Red\r
   7 #property indicator_color2  Blue\r
   8 \r
   9 extern int COGPeriod = 10;\r
  10 \r
  11 double COG[], COG1[], wrkArray[];\r
  12 //+------------------------------------------------------------------+\r
  13 int init()\r
  14 {\r
  15    IndicatorBuffers(2);\r
  16    IndicatorDigits( MarketInfo( Symbol(), MODE_DIGITS ));\r
  17    SetIndexStyle(0, DRAW_LINE);\r
  18    SetIndexStyle(1, DRAW_LINE); \r
  19 \r
  20    if( !SetIndexBuffer( 0, COG ) &&\r
  21        !SetIndexBuffer( 1, COG1 ))\r
  22       Print( "cannot set indicator buffers!" );\r
  23 \r
  24    SetIndexDrawBegin( 0, COGPeriod );\r
  25    SetIndexDrawBegin( 1, COGPeriod ); \r
  26 \r
  27    IndicatorShortName( "Ehlers COG" );\r
  28 \r
  29    return(0);\r
  30 }\r
  31 //+------------------------------------------------------------------+\r
  32 // Calculating Ehlers Center of Gravity\r
  33 //+------------------------------------------------------------------+ \r
  34 // COG = -1 * (NUM / DENOM)\r
  35 // NUM = the sum of [PRICE[i] * (i + 1)] from 0 to N\r
  36 // DENOM = the sum of PRICE[i] from 0 to N\r
  37 //   where N equals the number of periods (COGPeriod)\r
  38 //         PRICE[0] equals the current bar \r
  39 //         PRICE[1] equals the previous bar\r
  40 //         PRICE[n] equals the price from n bars previous\r
  41 //+------------------------------------------------------------------+\r
  42 int start()\r
  43 {\r
  44    int i, j, limit, iWrk00; \r
  45    int countedBars = IndicatorCounted();\r
  46    double dWrk00, num, denom;\r
  47 \r
  48    limit = Bars - countedBars;\r
  49    for( i = 0; i < limit; i++ )\r
  50    {\r
  51       if((i >= COGPeriod) || (limit < 10))\r
  52       { \r
  53          num = 0;\r
  54          denom = 0;\r
  55          for( j = 0; j < COGPeriod; j++)\r
  56          {\r
  57             if(limit < 10)\r
  58                iWrk00 = i + j;\r
  59             else\r
  60                iWrk00 = i - COGPeriod + j; \r
  61             dWrk00 = (High[iWrk00] + Low[iWrk00]) / 2;\r
  62             num = num + (1 + j) * dWrk00;\r
  63             denom = denom + dWrk00;\r
  64          }\r
  65          if(limit < 10)\r
  66             iWrk00 = i;\r
  67          else \r
  68             iWrk00 = i - COGPeriod;\r
  69          COG[iWrk00] = -num / denom;\r
  70          if(iWrk00 > 0)\r
  71             COG1[iWrk00 - 1] = COG[iWrk00];\r
  72       }\r
  73    }\r
  74 \r
  75    return(0);\r
  76 }\r
  77 //+------------------------------------------------------------------+ It doesn't seem to be charting out for me \r
  78 \r